home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 March / PCWorld_2008-03_cd.bin / v cisle / pcwxp / pcwXPServices.exe / pcwXPServices / pcwXPServices.hta
Text File  |  2008-01-13  |  21KB  |  637 lines
  1. <HTML>
  2.  <HEAD>
  3.   <TITLE>Konfigurace slu₧eb ve Windows XP
  4.   </TITLE>
  5.   <HTA:APPLICATION
  6.    ID = "XPServices"
  7.    APPLICATIONNAME = "XPServices"
  8.    ICON="./Tools/IDG.ICO"
  9.    BORDER = "normal"
  10.    CAPTION = "yes"
  11.    SHOWINTASKBAR = "yes"
  12.    SINGLEINSTANCE = "yes"
  13.    SYSMENU = "yes"
  14.    WINDOWSTATE = "normal"
  15.    SCROLL = "no"
  16.    SCROLLFLAT = "no"
  17.    VERSION = "1.0"
  18.    INNERBORDER = "no"
  19.    SELECTION = "no"
  20.    MAXIMIZEBUTTON = "no"
  21.    MINIMIZEBUTTON = "yes"
  22.    NAVIGABLE = "No"
  23.    CONTEXTMENU = "no"
  24.    BORDERSTYLE = "normal"/>
  25.  
  26. <STYLE type="text/css">
  27. body            {font-family:Tahoma,Verdana,Arial,Geneva;
  28.     border:none;
  29.     scrollbar-arrow-color: #BBF0FF;
  30.     scrollbar-base-color: #000000;
  31.     scrollbar-dark-shadow-color: #00204A;
  32.     scrollbar-track-color: #00204A;
  33.     scrollbar-face-color: #2969B5;
  34.     scrollbar-shadow-color: #000000;
  35.     scrollbar-highlight-color: #00204A;
  36.     scrollbar-3d-light-color: #00204A;
  37.     font-style:normal;
  38.     font-size:12;
  39.     color:#FFFFFF;
  40.     background-color:#2969B5;
  41.     filter:progid:DXImageTransform.Microsoft.Gradient(
  42.     GradientType=1,
  43.     StartColorStr="#00204A",
  44.     EndColorStr="#00357B");
  45. }
  46. .Label    {
  47.     font-family:Tahoma,Verdana,Arial,Geneva;
  48.     font-style:normal;
  49.     font-size:12;
  50.     color:#FFFFFF;
  51.     background-color:#2969B5;
  52.     filter:progid:DXImageTransform.Microsoft.Gradient(
  53.     GradientType=1,
  54.     StartColorStr="#00204A",
  55.     EndColorStr="#00357B");
  56.     Border:none
  57. }
  58.  
  59. .Textbox    {
  60.     font-family:Tahoma,Verdana,Arial,Geneva;
  61.     font-style:normal;
  62.     font-size:12;
  63.     color:#FFFFFF;
  64.     background-color:#2969B5;
  65.     filter:progid:DXImageTransform.Microsoft.Gradient(
  66.     GradientType=1,
  67.     StartColorStr="#00204A",
  68.     EndColorStr="#00357B");
  69.     border-right: #000000 2pt solid;
  70.     border-top: #000000 2pt solid;
  71.     border-left: #000000 2pt solid;
  72.     border-bottom: #000000 2pt solid;
  73. }
  74.  
  75. .Button    {
  76.     font-family:verdana;
  77.     font-size:12;
  78.     font-weight:bold;
  79.      background-color:#008000;
  80.     color:#FFFFFF;
  81.     border-right: #000000 2pt solid;
  82.     border-top: #000000 2pt solid;
  83.     border-left: #000000 2pt solid;
  84.     border-bottom: #000000 2pt solid;
  85.     filter:Alpha(opacity=100, finishopacity=40, style=3);
  86. }
  87.  
  88. <!--
  89.  a:link { font-family:verdana; font-size:12; color:#FF8000; }
  90.  a:visited { font-family:verdana; font-size:12; color:#FFFFFF; }
  91.  a:hover { font-family:verdana; font-size:12; color:#FF8000; font-weight:bold; }
  92. -->
  93. .Link    {
  94.     font-family:verdana;
  95.     font-size:12;
  96.     color:#FF8000;
  97.  
  98. }
  99. </STYLE>
  100.  
  101.  </HEAD>
  102.  <SCRIPT LANGUAGE="VBScript">
  103.     on error resume next
  104.     Set myfiles = CreateObject("Scripting.FileSystemObject")
  105.     Set myshell = CreateObject("Wscript.Shell")
  106.     Set Pfad = Myfiles.GetFolder(".\Tools")
  107.     if not (myfiles.FileExists(Pfad & "\XPPCW.bat")) then
  108.         Pfad = Mid(XPServices.commandLine, 1, InstrRev(XPServices.commandLine, "\", -1, vbTextCompare)) & "\Tools"
  109.         Pfad = Replace(Pfad, Chr(34), "", 1, -1, vbTextCompare)
  110.     end If
  111.     MinKonf = "XPMinimal.bat"
  112.     SafeKonf = "XPSafe.bat"
  113.     pcwKonf = "XPPCW.bat"
  114.     
  115.     'ZjiÜt∞nφ verze Windows
  116.     Winvers = myshell.Regread("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\ProductName")
  117.     if Instr(1, lcase(Winvers), "xp", vbTextCompare) <> 0 then
  118.         DefaultVal = "Standardnφ konfigurace Windows XP"
  119.         DefKonf = "XP.bat"
  120.         DefHTM = "DefXP.htm"
  121.     else
  122.         msgbox "Tato utilita je urΦena pouze pro Windows XP", vbOkOnly+vbExclamation, "Chyba"
  123.         call SubQuit
  124.     End If
  125.     
  126. '==========================================================================
  127.  
  128.     Sub SubInitFenster
  129.         on error resume next
  130.         FB = screen.availWidth       'Dosa₧itelnß Üφ°ka okna
  131.         FH = screen.availHeight      'Dosa₧itelnß v²Üka okna
  132.         nScaleFactor = screen.deviceXDPI/screen.logicalXDPI
  133.          if FB=800 then
  134.             FB=INT(FB*0.88*nScalefactor)
  135.             FH=INT(FH*nScalefactor)
  136.             FEN=INT(FH*0.25)
  137.         elseif FB=1024 then
  138.             FB=INT(FB*0.69*nScalefactor)
  139.             FH=INT(FH*0.88*nScalefactor)
  140.             FEN=INT(FH*0.4*nScalefactor)
  141.         elseif FB=1152 then
  142.             FB=INT(FB*0.61*nScalefactor)
  143.             FH=INT(FH*0.75*nScalefactor)
  144.             FEN=INT(FH*0.4*nScalefactor)
  145.         else
  146.             FB=INT(FB*0.56*nScalefactor)
  147.             FH=INT(FH*0.65*nScalefactor)
  148.             FEN=INT(FH*0.4*nScalefactor)
  149.         end if
  150.         document.all.Deflabel.Value = DefaultVal
  151.         document.all.TheFrame.style.setAttribute "height", FEN, False
  152.         Window.resizeTo FB, FH        'Zm∞n∞nß Üφ°ka a v²Üka 
  153.         If not (myfiles.FileExists(Pfad & "\XPLast.bat")) then
  154.             document.all.ServKonf(3).disabled = True
  155.         else
  156.             document.all.ServKonf(3).disabled = False
  157.         end if
  158.         If not (myfiles.FileExists(Pfad & "\XPOrg.bat")) then
  159.             document.all.ServKonf(4).disabled = True
  160.         else
  161.             document.all.ServKonf(4).disabled = False
  162.         end if
  163.     End Sub
  164.  
  165. '==========================================================================    
  166.     
  167.     Function LoadKonf(Config)
  168.         if Config = "Def" then
  169.             InFrame = DefHTM
  170.         elseif Config = "last" then
  171.             InFrame = "Konfigurace slu₧eb p°ed poslednφ provedenou zm∞nou"
  172.             document.all.TheFrame.innerHTML = InFrame
  173.             exit function
  174.         elseif Config = "org" then
  175.             InFrame = "PoΦßteΦnφ konfigurace"
  176.             document.all.TheFrame.innerHTML = InFrame
  177.             exit function
  178.         else
  179.             InFrame = Config & ".htm"                
  180.         end if
  181.         Set ConfFile = myfiles.Opentextfile(Pfad & "\" & InFrame, 1, False)
  182.         ConfTxt = ConfFile.Readall
  183.         ConfFile.Close
  184.         document.all.TheFrame.innerHTML = ConfTxt
  185.     end Function
  186.  
  187. '==========================================================================
  188.  
  189.     function ShowHelp(Config)
  190.         if Config = "Def" then
  191.             msgbox "V²chozφ nastavenφ slu₧eb ve Windows XP.", vbOkOnly+vbInformation, DefaultVal
  192.         elseif Config = "pcw" then
  193.             msgbox "Toto nastavenφ ukonΦφ celou °adu slu₧eb, kterΘ spot°ebovßvajφ spoustu prost°edk∙ systΘmu a kterΘ jsou pro v∞tÜinu b∞₧n²ch u₧ivatel∙ zbyteΦnΘ.", vbOkOnly+vbInformation, "Nastavenφ slu₧eb doporuΦovanΘ PC-WORLDem"
  194.         elseif Config = "Min" then
  195.             msgbox "Toto nastavenφ zastavφ vÜechny slu₧by, kterΘ nejsou pot°eba pro b∞₧nou prßci u₧ivatel∙.", vbOkOnly+vbInformation, "Konfigurace slu₧eb na minimßlnφ nutnΘ ·rovni"
  196.         elseif Config = "last" then
  197.             msgbox "Nastavφ takovou konfiguraci slu₧eb, kterß byla v platnosti p°ed poslednφ zm∞nou provedenou touto utilitou.", vbOkOnly+vbInformation, "Obnovenφ poslednφ pou₧itΘ konfigurace slu₧eb"
  198.         elseif Config = "org" then
  199.             msgbox "Nastavφ takovou konfiguraci slu₧eb, kterß byla v platnosti p°ed prvnφm pou₧itφm tΘto utility.", vbOkOnly+vbInformation, "Obnovenφ v²chozφ konfigurace slu₧eb"            
  200.         end if
  201.     end function
  202.     
  203. '==========================================================================    
  204.     
  205.     Function SubSet
  206.         if document.all.ServKonf(0).Checked then
  207.             Call SaveConfig
  208.             myshell.run "cmd /c " & chr(34) & Pfad & "\" & DefKonf & chr(34), 1, True
  209.             call LoadKonf("Def")
  210.         elseif document.all.ServKonf(1).Checked then
  211.             Call SaveConfig
  212.             myshell.run "cmd /c " & chr(34) & Pfad & "\XPPCW.bat" & chr(34), 1, True
  213.             call LoadKonf("pcw")
  214.         elseif document.all.ServKonf(2).Checked then
  215.             Call SaveConfig
  216.             myshell.run "cmd /c " & chr(34) & Pfad & "\XPMinimal.bat" & chr(34), 1, True
  217.             call LoadKonf("Min")
  218.         elseif document.all.ServKonf(3).Checked then
  219.             myshell.run "cmd /c " & chr(34) & Pfad & "\XPLast.bat" & chr(34), 1, True
  220.             call LoadKonf("last")
  221.         elseif document.all.ServKonf(4).Checked then
  222.             Call SaveConfig
  223.             myshell.run "cmd /c " & chr(34) & Pfad & "\XPOrg.bat" & chr(34), 1, True
  224.             call LoadKonf("org")
  225.         end if
  226.     End Function
  227.  
  228. '==========================================================================
  229.     
  230.     Function SaveConfig
  231.     Set LastConf = myfiles.OpenTextFile(Pfad & "\XPLast.Bat", 2, True)
  232.     LastConf.WriteLine "sc boot ok"
  233.     LastConf.WriteLine "sc config ClipSrv start= " & GetSvcStatus("ClipSrv")
  234.     LastConf.WriteLine "sc config Netlogon start= " & GetSvcStatus("Netlogon")
  235.     LastConf.WriteLine "sc config AppMgmt start= " & GetSvcStatus("AppMgmt")
  236.     LastConf.WriteLine "sc config lanmanworkstation start= " & GetSvcStatus("lanmanworkstation")
  237.     LastConf.WriteLine "sc config aspnet_state start= " & GetSvcStatus("aspnet_state")
  238.     LastConf.WriteLine "sc config wuauserv start= " & GetSvcStatus("wuauserv")
  239.     LastConf.WriteLine "sc config EventSystem start= " & GetSvcStatus("EventSystem")
  240.     LastConf.WriteLine "sc config COMSysApp start= " & GetSvcStatus("COMSysApp")
  241.     LastConf.WriteLine "sc config Browser start= " & GetSvcStatus("Browser")
  242.     LastConf.WriteLine "sc config DcomLaunch start= " & GetSvcStatus("DcomLaunch")
  243.     LastConf.WriteLine "sc config Themes start= " & GetSvcStatus("Themes")
  244.     LastConf.WriteLine "sc config WmdmPmSN start= " & GetSvcStatus("WmdmPmSN")
  245.     LastConf.WriteLine "sc config MSDTC start= " & GetSvcStatus("MSDTC")
  246.     LastConf.WriteLine "sc config Dnscache start= " & GetSvcStatus("Dnscache")
  247.     LastConf.WriteLine "sc config Spooler start= " & GetSvcStatus("Spooler")
  248.     LastConf.WriteLine "sc config Eventlog start= " & GetSvcStatus("Eventlog")
  249.     LastConf.WriteLine "sc config ALG start= " & GetSvcStatus("ALG")
  250.     LastConf.WriteLine "sc config ProtectedStorage start= " & GetSvcStatus("ProtectedStorage")
  251.     LastConf.WriteLine "sc config HTTPFilter start= " & GetSvcStatus("HTTPFilter")
  252.     LastConf.WriteLine "sc config ImapiService start= " & GetSvcStatus("ImapiService")
  253.     LastConf.WriteLine "sc config CiSvc start= " & GetSvcStatus("CiSvc")
  254.     LastConf.WriteLine "sc config BITS start= " & GetSvcStatus("BITS")
  255.     LastConf.WriteLine "sc config PolicyAgent start= " & GetSvcStatus("PolicyAgent")
  256.     LastConf.WriteLine "sc config WZCSVC start= " & GetSvcStatus("WZCSVC")
  257.     LastConf.WriteLine "sc config SysmonLog start= " & GetSvcStatus("SysmonLog")
  258.     LastConf.WriteLine "sc config SwPrv start= " & GetSvcStatus("SwPrv")
  259.     LastConf.WriteLine "sc config Messenger start= " & GetSvcStatus("Messenger")
  260.     LastConf.WriteLine "sc config mnmsrvc start= " & GetSvcStatus("mnmsrvc")
  261.     LastConf.WriteLine "sc config NetDDE start= " & GetSvcStatus("NetDDE")
  262.     LastConf.WriteLine "sc config NetDDEdsdm start= " & GetSvcStatus("NetDDEdsdm")
  263.     LastConf.WriteLine "sc config Netman start= " & GetSvcStatus("Netman")
  264.     LastConf.WriteLine "sc config xmlprov start= " & GetSvcStatus("xmlprov")
  265.     LastConf.WriteLine "sc config Nla start= " & GetSvcStatus("Nla")
  266.     LastConf.WriteLine "sc config NtLmSsp start= " & GetSvcStatus("NtLmSsp")
  267.     LastConf.WriteLine "sc config PlugPlay start= " & GetSvcStatus("PlugPlay")
  268.     LastConf.WriteLine "sc config RSVP start= " & GetSvcStatus("RSVP")
  269.     LastConf.WriteLine "sc config RasMan start= " & GetSvcStatus("RasMan")
  270.     LastConf.WriteLine "sc config RpcSs start= " & GetSvcStatus("RpcSs")
  271.     LastConf.WriteLine "sc config RemoteAccess start= " & GetSvcStatus("RemoteAccess")
  272.     LastConf.WriteLine "sc config seclogon start= " & GetSvcStatus("seclogon")
  273.     LastConf.WriteLine "sc config lanmanserver start= " & GetSvcStatus("lanmanserver")
  274.     LastConf.WriteLine "sc config ShellHWDetection start= " & GetSvcStatus("ShellHWDetection")
  275.     LastConf.WriteLine "sc config wscsvc start= " & GetSvcStatus("wscsvc")
  276.     LastConf.WriteLine "sc config SamSs start= " & GetSvcStatus("SamSs")
  277.     LastConf.WriteLine "sc config SCardSvr start= " & GetSvcStatus("SCardSvr")
  278.     LastConf.WriteLine "sc config SSDPSRV start= " & GetSvcStatus("SSDPSRV")
  279.     LastConf.WriteLine "sc config srservice start= " & GetSvcStatus("srservice")
  280.     LastConf.WriteLine "sc config Schedule start= " & GetSvcStatus("Schedule")
  281.     LastConf.WriteLine "sc config LmHosts start= " & GetSvcStatus("LmHosts")
  282.     LastConf.WriteLine "sc config TapiSrv start= " & GetSvcStatus("TapiSrv")
  283.     LastConf.WriteLine "sc config TlntSvr start= " & GetSvcStatus("TlntSvr")
  284.     LastConf.WriteLine "sc config TermService start= " & GetSvcStatus("TermService")
  285.     LastConf.WriteLine "sc config upnphost start= " & GetSvcStatus("upnphost")
  286.     LastConf.WriteLine "sc config UPS start= " & GetSvcStatus("UPS")
  287.     LastConf.WriteLine "sc config dmserver start= " & GetSvcStatus("dmserver")
  288.     LastConf.WriteLine "sc config dmadmin start= " & GetSvcStatus("dmadmin")
  289.     LastConf.WriteLine "sc config Alerter start= " & GetSvcStatus("Alerter")
  290.     LastConf.WriteLine "sc config WebClient start= " & GetSvcStatus("WebClient")
  291.     LastConf.WriteLine "sc config AudioSrv start= " & GetSvcStatus("AudioSrv")
  292.     LastConf.WriteLine "sc config MSIServer start= " & GetSvcStatus("MSIServer")
  293.     LastConf.WriteLine "sc config WmiApSrv start= " & GetSvcStatus("WmiApSrv")
  294.     
  295.     LastConf.Close
  296.     
  297.     Set Batch = Myfiles.opentextfile(Pfad & "\XPLast.Bat", 1, False)
  298.      BatchTxt = Batch.Readall
  299.      Batch.Close
  300.      x = 0
  301.      Suchstr = "start= auto"
  302.      Insert = "sc start"
  303.      Do
  304.          findme = InStr(x+1, BatchTxt, Suchstr, 1)
  305.          x = findme
  306.          If findme = 0 Then Exit Do
  307.          findconf = InstrRev(BatchTxt, "sc config ", findme, 1)
  308.          SvcName = Mid(BatchTxt, findconf+10, findme-findconf-11)
  309.          BatchTxt = replace(BatchTxt, "sc config " & SvcName & " " & Suchstr, "sc config " & SvcName & " " & Suchstr & vbNewLine & Insert & " " & SvcName, 1,-1,1)
  310.      loop
  311.      Set Batch = Myfiles.opentextfile(Pfad & "\XPLast.Bat", 2, False)
  312.      Batch.Write BatchTxt
  313.      Batch.Close
  314.      BatchTxt = ""
  315.      
  316.      Set Batch = Myfiles.opentextfile(Pfad & "\XPLast.Bat", 1, False)
  317.      BatchTxt = Batch.Readall
  318.      Batch.Close
  319.      x = 0
  320.      Suchstr = "start= delayed-auto"
  321.      Insert = "sc start"
  322.      Do
  323.          findme = InStr(x+1, BatchTxt, Suchstr, 1)
  324.          x = findme
  325.          If findme = 0 Then Exit Do
  326.          findconf = InstrRev(BatchTxt, "sc config ", findme, 1)
  327.          SvcName = Mid(BatchTxt, findconf+10, findme-findconf-11)
  328.          BatchTxt = replace(BatchTxt, "sc config " & SvcName & " " & Suchstr, "sc config " & SvcName & " " & Suchstr & vbNewLine & Insert & " " & SvcName, 1,-1,1)
  329.      loop
  330.      Set Batch = Myfiles.opentextfile(Pfad & "\XPLast.Bat", 2, False)
  331.      Batch.Write BatchTxt
  332.      Batch.Close
  333.      BatchTxt = ""
  334.      
  335.      Set Batch = Myfiles.opentextfile(Pfad & "\XPLast.Bat", 1, False)
  336.      BatchTxt = Batch.Readall
  337.      Batch.Close
  338.      x = 0
  339.      Suchstr = "start= disabled"
  340.      Insert = "sc stop"
  341.      Do
  342.          findme = InStr(x+1, BatchTxt, Suchstr, 1)
  343.          x = findme
  344.          If findme = 0 Then Exit Do
  345.          findconf = InstrRev(BatchTxt, "sc config ", findme, 1)
  346.          SvcName = Mid(BatchTxt, findconf+10, findme-findconf-11)
  347.          BatchTxt = replace(BatchTxt, "sc config " & SvcName & " " & Suchstr, "sc config " & SvcName & " " & Suchstr & vbNewLine & Insert & " " & SvcName, 1,-1,1)
  348.      loop
  349.      Set Batch = Myfiles.opentextfile(Pfad & "\XPLast.Bat", 2, False)
  350.      Batch.Write BatchTxt
  351.      Batch.Close
  352.      BatchTxt = ""
  353.      
  354.      Set Batch = Myfiles.opentextfile(Pfad & "\XPLast.Bat", 1, False)
  355.      BatchTxt = Batch.Readall
  356.      Batch.Close
  357.      x = 0
  358.      Suchstr = "start= demand"
  359.      Insert = "sc stop"
  360.      Do
  361.          findme = InStr(x+1, BatchTxt, Suchstr, 1)
  362.          x = findme
  363.          If findme = 0 Then Exit Do
  364.          findconf = InstrRev(BatchTxt, "sc config ", findme, 1)
  365.          SvcName = Mid(BatchTxt, findconf+10, findme-findconf-11)
  366.          BatchTxt = replace(BatchTxt, "sc config " & SvcName & " " & Suchstr, "sc config " & SvcName & " " & Suchstr & vbNewLine & Insert & " " & SvcName, 1,-1,1)
  367.      loop
  368.      Set Batch = Myfiles.opentextfile(Pfad & "\XPLast.Bat", 2, False)
  369.      Batch.Write BatchTxt
  370.      Batch.Close
  371.      BatchTxt = ""
  372.      
  373.      If not (myfiles.FileExists(Pfad & "\XPOrg.bat")) then
  374.         ret = myfiles.copyfile(Pfad & "\XPLast.bat", Pfad & "\XPOrg.bat", False)
  375.     end if
  376.      document.all.TheFrame.innerHTML = "Byla provedena zßloha aktußlnφ konfigurace..."
  377.      If not (myfiles.FileExists(Pfad & "\XPLast.bat")) then
  378.         document.all.ServKonf(3).disabled = True
  379.     else
  380.         document.all.ServKonf(3).disabled = False
  381.     end if
  382.     If not (myfiles.FileExists(Pfad & "\XPOrg.bat")) then
  383.         document.all.ServKonf(4).disabled = True
  384.     else
  385.         document.all.ServKonf(4).disabled = False
  386.     end if
  387.     end function
  388.     
  389. '==========================================================================    
  390.     
  391.     Function GetSvcStatus(svc)
  392.         on error resume next
  393.         ret = myshell.Regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\" & svc & "\Start")
  394.         if err.number = 0 then
  395.             if ret = 0 then
  396.                 GetSvcStatus = "boot"
  397.             elseif ret = 1 then
  398.                 GetSvcStatus = "system"
  399.             elseif ret = 2 then
  400.                 thedelay = myshell.Regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\" & svc & "\DelayedAutostart")
  401.                 if thedelay = 0 then
  402.                     GetSvcStatus = "auto"
  403.                 elseif thedelay = 1 then
  404.                     GetSvcStatus = "delayed-auto"
  405.                 end if
  406.             elseif ret = 3 then
  407.                 GetSvcStatus = "demand"
  408.             elseif ret = 4 then
  409.                 GetSvcStatus = "disabled"
  410.             else
  411.                 GetSvcStatus = "demand"
  412.             end if
  413.         else
  414.             GetSvcStatus = "demand"
  415.             err.clear
  416.         end if
  417.     End Function
  418.     
  419. '==========================================================================
  420.  
  421.     Sub SubClear(ID)
  422.         document.all.item(ID).Value = ""
  423.     End Sub
  424.  
  425. '==========================================================================
  426.  
  427.     Sub SubQuit
  428.         Set myfiles        = Nothing
  429.         Set myshell        = Nothing
  430.         Window.Close
  431.     End Sub
  432.  
  433. '==========================================================================
  434.   Function high(objekt) 
  435.      objekt.style.background ="#00FF00"
  436.      objekt.filters.alpha.finishopacity = 100
  437.      objekt.filters.alpha.opacity = 100
  438.     End Function
  439.  
  440. '==========================================================================
  441.  
  442.   function low(objekt)
  443.      objekt.style.background ="#008000"
  444.      objekt.filters.alpha.opacity = 100
  445.      objekt.filters.alpha.finishopacity = 40
  446.     End Function
  447.  
  448. '==========================================================================
  449.     
  450. </SCRIPT>
  451.  
  452. <BODY SCROLL="yes" ONLOAD="SubInitFenster">
  453. <TABLE WIDTH=80% BORDER=0 CELLPADDING=4 CELLSPACING=2>
  454.     <TR>
  455.         <TD WIDTH=100% align="left">
  456.             <b>Vyberte po₧adovanou konfiguraci:</b>
  457.         </TD>
  458.         <TR>
  459.         <TD>
  460.             <INPUT
  461.               Name=ServKonf
  462.               Type="radio"
  463.               value="DefKonf"
  464.             onclick="LoadKonf('Def')">
  465.             
  466.             <Input
  467.             Type="button"
  468.             Class="Button"
  469.               OnClick="ShowHelp('Def')"
  470.               name="shelp"
  471.               Value=" ? "
  472.               onMouseOver="high(shelp)"
  473.                 onMouseOut="low(shelp)"
  474.               Title="Informace pro danou konfiguraci"/>
  475.               
  476.               <Input
  477.               Class="Label"
  478.             ID=Deflabel
  479.               Type=text
  480.               Value=""
  481.               Size=90 READONLY>
  482.         </TD>
  483.         </TR>
  484.         <TR>
  485.         <TD>
  486.             <INPUT
  487.               Name=ServKonf
  488.               Type="radio"
  489.               value="pcwKonf"
  490.             onclick="LoadKonf('pcw')">
  491.             
  492.             <Input
  493.             Type="button"
  494.             Class="Button"
  495.               OnClick="ShowHelp('pcw')"
  496.               name="shelp2"
  497.               Value=" ? "
  498.               onMouseOver="high(shelp2)"
  499.                 onMouseOut="low(shelp2)"
  500.               Title="Informace pro danou konfiguraci"/>
  501.               
  502.               <Input
  503.               Class="Label"
  504.             ID=pcwlabel
  505.               Type=text
  506.               Value="Konfigurace slu₧eb doporuΦenß PC-WORLDem"
  507.               Size=90 READONLY>
  508.         </TD>
  509.         </TR>
  510.         <TR>
  511.         <TD>
  512.               <INPUT
  513.               Name=ServKonf
  514.               Type="radio"
  515.               Title="MinKonf"
  516.             onclick="LoadKonf('Min')">
  517.             
  518.             <Input
  519.             Type="button"
  520.             Class="Button"
  521.               OnClick="ShowHelp('Min')"
  522.               name="shelp3"
  523.               Value=" ? "
  524.               onMouseOver="high(shelp3)"
  525.                 onMouseOut="low(shelp3)"
  526.               Title="Informace pro danou konfiguraci"/>
  527.               
  528.               <Input
  529.             Class="Label"
  530.               ID=MinLabel
  531.             Type=text
  532.               Value="Konfigurace slu₧eb na minimßlnφ ·rovni"
  533.               Size=90 READONLY>
  534.         </TD>
  535.         </TR>
  536.         <TR>
  537.         <TD>
  538.               <INPUT
  539.               Name=ServKonf
  540.               Type="radio"
  541.               Title="LastKonf"
  542.             onclick="LoadKonf('last')">
  543.             
  544.             <Input
  545.             Type="button"
  546.             Class="Button"
  547.               OnClick="ShowHelp('last')"
  548.               name="shelp4"
  549.               Value=" ? "
  550.               onMouseOver="high(shelp4)"
  551.                 onMouseOut="low(shelp4)"
  552.               Title="Informace pro danou konfiguraci"/>
  553.               
  554.               <Input
  555.             Class="Label"
  556.               ID=Lastlabel
  557.             Type=text
  558.               Value="Obnovenφ poslednφ nastavenΘ konfigurace slu₧eb"
  559.               Size=90 READONLY>
  560.         </TD>
  561.         <TR>
  562.         <TD>
  563.               <INPUT
  564.               Name=ServKonf
  565.               Type="radio"
  566.               Title="OrgKonf"
  567.             onclick="LoadKonf('org')">
  568.             
  569.             <Input
  570.             Type="button"
  571.             Class="Button"
  572.               OnClick="ShowHelp('org')"
  573.               name="shelp5"
  574.               Value=" ? "
  575.               onMouseOver="high(shelp5)"
  576.                 onMouseOut="low(shelp5)"
  577.               Title="Informace pro danou konfiguraci"/>
  578.               
  579.               <Input
  580.             Class="Label"
  581.               ID=Orglabel
  582.             Type=text
  583.               Value="Obnovenφ v²chozφ konfigurace"
  584.               Size=90 READONLY>
  585.         </TD>
  586.     </TR>
  587.     </Table>
  588.     <TABLE WIDTH=80% BORDER=0 CELLPADDING=4 CELLSPACING=2>    <TR>
  589.     <TR>
  590.         <TD WIDTH=100%>
  591.             <B>Podrobnosti t²kajφcφ se konfigurace slu₧eb:</B>
  592.         </TD>
  593.     </TR>
  594.     <TR>
  595.         <TD WIDTH=100%>
  596.              <Span Class=Textbox Name=TheFrame id=TheFrame style="WIDTH: 670px; HEIGHT: 270px; overflow:auto"></Span>
  597.          </TD>
  598.     </TR>
  599.     </TABLE>
  600.     <TABLE WIDTH=100% BORDER=0 CELLPADDING=4 CELLSPACING=2>
  601.     <TR>
  602.         <TD WIDTH=100%>
  603.             <Input
  604.             Type="button"
  605.             Class="Button"
  606.               OnClick="SubSet"
  607.               name="setit"
  608.               Value="Pou₧φt"
  609.               onMouseOver="high(setit)"
  610.                onMouseOut="low(setit)"
  611.               Title="Pou₧ije vybranou konfiguraci slu₧eb"/>
  612.           
  613.             <Input
  614.             Type="button"
  615.             Class="Button"
  616.               OnClick="SaveConfig"
  617.               name="saveit"
  618.               Value="Ulo₧enφ aktußlnφ konfigurace"
  619.               onMouseOver="high(saveit)"
  620.                 onMouseOut="low(saveit)"
  621.               Title="Ulo₧φ aktußlnφ nastavenφ slu₧eb (jinak se provßdφ automaticky)"/>
  622.  
  623.               <Input
  624.               Type="button"
  625.               Class=Button
  626.               OnClick="SubQuit"
  627.               Name="Ende"
  628.               Value="Konec"
  629.               onMouseOver="high(Ende)"
  630.                 onMouseOut="low(Ende)"
  631.               Title="UkonΦenφ utility"/>
  632.         </TD>
  633.     </TR>
  634.   </TABLE>
  635.  </BODY>
  636. </HTML>
  637.